home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / bcsrce2.zip / SAVEIT2.BC < prev    next >
Text File  |  1991-02-22  |  3KB  |  98 lines
  1. rem Hotkey to activate this TSR is Alt-0.
  2. rem This product use the TesSeRact(tm) Ram-Resident Library and supports
  3. rem the TesSeRact Standard for Ram-Resident Program Communication. For
  4. rem information about TesSeRact, contact the TesSeRact Development Team
  5. rem at:  TesSeRact Development Team
  6. rem      1657 The Fairways
  7. rem      Suite 101
  8. rem      Jenkintown, PA  19046
  9. rem      1-215-884-3373
  10. rem      Compuserve:     70731.20
  11. rem      MCIMAIL:        315-5415
  12. rem
  13. rem This MCI Account has been provided to the TesSeRact Development Team
  14. rem by Borland International, Inc. TesSeRact is a trade mark of the
  15. rem TesSeRact Development Team.
  16. if %1 = disable goto disable_TSR
  17. if %1 = enable goto enable_TSR
  18. if %1 = unload goto unload_TSR
  19. if %1 = popup goto popup_TSR
  20. if %1 = d goto disable_TSR
  21. if %1 = e goto enable_TSR
  22. if %1 = u goto unload_TSR
  23. if %1 = p goto popup_TSR
  24. TSR_installed?
  25. if errorlevel 1 goto installed
  26. DO_IF %1m = m
  27. :Reroop
  28. echo What is the file name you want the screens appended to?
  29. echo.
  30. READ %!f
  31. let %!l = %!f
  32. STRING_LENGTH %!l
  33. LE %!l 3
  34. IF ERRORLEVEL 1 GOTO Erroop
  35. GOTO Main
  36. :Erroop
  37. echo Filename must exceed 3 characters including drive, dir and .ext
  38. GOTO Reroop
  39. ELSE
  40. let %!f = %1
  41. GOTO Main
  42. END_IF
  43. :Main
  44. rem SET __SV=%!f
  45. echo Installing screen capture program.
  46. echo All screens toggled with Alt-0 are redirected to %!f.
  47. echo.
  48. echo SYNTAX--: SAVEIT2 [UNLOAD]/[ENABLE]/[DISABLE]/[POPUP]
  49. echo SYNTAX--: SAVEIT2 [U]/[E]/[D]/[P]
  50. echo.
  51. echo If one of the above reserved words is not used as a parameter, then
  52. echo the {optional} parameter becomes the file that will be appended to.
  53. echo.
  54. echo This BATCOM product incorporates the TesSeRact library.
  55. TSR 11 8
  56. save_screen
  57. let %!w = 1
  58. do_while not %!w == 26
  59.     locate %!w 1
  60.     let %!l = 0
  61.     read_screen %!l
  62.     echo %!l>>%!f
  63.     add %!w 1
  64. end_while
  65. restore_screen
  66. beep
  67. return
  68. :installed
  69. echo The screen capture TSR program has already been installed.
  70. exit
  71. :disable_TSR
  72. GOSUB CHECK_TSR
  73. TSR_disable
  74. echo The screen capture TSR has been DISABLED.
  75. exit
  76. :enable_TSR
  77. GOSUB CHECK_TSR
  78. TSR_enable
  79. echo The screen capture TSR has been ENABLED.
  80. exit
  81. :unload_TSR
  82. GOSUB CHECK_TSR
  83. TSR_unload
  84. echo The screen capture TSR has been UNLOADED.
  85. exit
  86. :popup_TSR
  87. GOSUB CHECK_TSR
  88. TSR_popup
  89. exit
  90. :CHECK_TSR
  91. TSR_installed?
  92. if not errorlevel 1 goto N_A
  93. RETURN
  94. :N_A
  95. echo The screen capture TSR hasn't been installed yet.
  96. echo SAVEIT2, by itself, installs the TSR.
  97. exit
  98.